0 PRINT"[147]":POKE53280,6:POKE53281,1:POKE646,0
1 PRINT" COMMODARES....DATE DITTY #1 ":PRINT:PRINT
2 REM     DATE DITTY
3 REM SOLUTION BY
4 REM     KEITH KUSHNER
5 REM
10 REM -VALID FOR 1900'S AFTER 2/28/1900
20 REM -ENTER JULY 4, 1986 AS 7,4,86
30 REM
40 FOR N=0 TO 6:READ D$(N):NEXT
50 DATA SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY
60 INPUT"M,D,Y";M,D,Y:IF M<3 THEN M=M+12:Y=Y-1
70 N=D+2*M+INT(.6*(M+1))+Y+INT(Y/4)+3 : N=INT((N/7-INT(N/7))*7+.5):PRINT D$(N)